home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / dfunc.lha / DFunc_Procs.AMOS / DFunc_Procs.amosSourceCode
AMOS Source Code  |  1995-12-16  |  2KB  |  96 lines
  1. '                                DFunc� AMOS     
  2. '                       "Library Support Procedures"   
  3. '                         Programming By: Greg Cox     
  4. '                              .-------------.   
  5. '                              | Version 1.0 |     
  6. '                              `-------------' 
  7. '                   Requirements: dfunc.library (v37.14)   
  8. '
  9. '   ï¿½ DFunc is a registered trademark of Kenneth C. Nilsen/Digital Surface 
  10. '          ï¿½ Copyright 1994, 95 Kenneth C. Nilsen/Digital Surface  
  11. ' -------------------------------------------------------------------------- 
  12.  
  13. Procedure DF_CALCARG[_STRING$]
  14. Areg(0)=Varptr(_STRING$)
  15. Lib Open 1,"dfunc.library",0
  16. DF=Lib Call(1,-636)
  17. Lib Close 1
  18. End Proc[DF]
  19. Procedure DF_COMPARESTR[_STRING1$,_STRING2$,_MODE]
  20. Areg(0)=Varptr(_STRING1$)
  21. Areg(1)=Varptr(_STRING2$)
  22. Dreg(0)=_MODE
  23. Lib Open 1,"dfunc.library",0
  24. DF=Lib Call(1,-684)
  25. Lib Close 1
  26. End Proc[DF]
  27. Procedure DF_DOSBASE
  28. Lib Open 1,"dfunc.library",0
  29. DF=Lib Call(1,-480)
  30. Lib Close 1
  31. BASE_ADDR$=Hex$(DF)
  32. End Proc[BASE_ADDR$]
  33. Procedure DF_FINDTASK[NAME$]
  34. Areg(0)=Varptr(NAME$)
  35. Lib Open 1,"dfunc.library",0
  36. DF=Lib Call(1,-528)
  37. Lib Close 1
  38. _POINTER$=Hex$(DF)
  39. End Proc[_POINTER$]
  40. Procedure DF_FINDSCREEN[NAME$]
  41. Areg(0)=Varptr(NAME$)
  42. Lib Open 1,"dfunc.library",0
  43. DF=Lib Call(1,-426)
  44. Lib Close 1
  45. _POINTER$=Hex$(DF)
  46. End Proc[_POINTER$]
  47. Procedure DF_FINDWINDOW[NAME$]
  48. Areg(0)=Varptr(NAME$)
  49. Lib Open 1,"dfunc.library",0
  50. DF=Lib Call(1,-432)
  51. Lib Close 1
  52. _POINTER$=Hex$(DF)
  53. End Proc[_POINTER$]
  54. Procedure DF_FINDSTRLEN[_STRING$]
  55. Areg(0)=Varptr(_STRING$)
  56. Lib Open 1,"dfunc.library",0
  57. DF=Lib Call(1,-330)
  58. Lib Close 1
  59. End Proc[DF]
  60. Procedure DF_GETFILELEN[_FILENAME$]
  61. Areg(0)=Varptr(_FILENAME$)
  62. Lib Open 1,"dfunc.library",0
  63. DF=Lib Call(1,-342)
  64. Lib Close 1
  65. End Proc[DF]
  66. Procedure DF_GETMATH
  67. Lib Open 1,"dfunc.library",0
  68. DF=Lib Call(1,-672)
  69. Lib Close 1
  70. End Proc[DF]
  71. Procedure DF_GETPROC
  72. Lib Open 1,"dfunc.library",0
  73. DF=Lib Call(1,-666)
  74. Lib Close 1
  75. End Proc[DF]
  76. Procedure DF_GFXBASE
  77. Lib Open 1,"dfunc.library",0
  78. DF=Lib Call(1,-474)
  79. Lib Close 1
  80. BASE_ADDR$=Hex$(DF)
  81. End Proc[BASE_ADDR$]
  82. Procedure DF_INTUIBASE
  83. Lib Open 1,"dfunc.library",0
  84. DF=Lib Call(1,-486)
  85. Lib Close 1
  86. BASE_ADDR$=Hex$(DF)
  87. End Proc[BASE_ADDR$]
  88. Procedure DF_RENAMETASK[NEWNAME$]
  89. Areg(1)=Varptr(NEWNAME$)
  90. X=Execall(-294)
  91. Areg(0)=X
  92. Areg(1)=Varptr(NEWNAME$)
  93. Lib Open 1,"dfunc.library",0
  94. DF=Lib Call(1,-534)
  95. Lib Close 1
  96. End Proc